home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / feel0_89.lha / Feel / Src / irx-swch.s < prev    next >
Text File  |  1993-02-02  |  348b  |  23 lines
  1.     .verstamp    2 40
  2.     .extern    value 4
  3.     .text    
  4.     .align    2
  5.     .file    2 "swag.c"
  6.     .globl    stack_switch_and_go
  7.     .loc    2 4
  8.     .set noreorder
  9.  #   1    extern int value;
  10.  #   2    
  11.  #   3    void stack_switch_and_go(int stack,int fun)
  12.  #   4    {
  13.     .ent    stack_switch_and_go 2
  14. stack_switch_and_go:
  15.     .option    O1
  16.     move $sp,$4
  17.     jal $5
  18.  #   7    }
  19.     nop
  20.     nop
  21.     nop
  22.     .end    stack_switch_and_go
  23.